home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Developer Helper 1: Phil & Dave's Excellent CD
/
Excellent CD HFS.raw
/
Moof
/
Goodies
/
MPW Goodies
/
MPW Goodies⁄DTS
/
ProjListMenu
< prev
next >
Wrap
Text File
|
2022-08-05
|
327b
|
14 lines
Set Exit 0
DeleteMenu ProjList ≥ Dev:Null > Dev:Null
Set ProjectNameList "`MountProject -pp -s -r | Sort -l`"
for i in {ProjectNameList}
AddMenu ProjList "{i}" "Set ProjName ∂"{i}∂"; ∂
Execute SetProject; ∂
( Evaluate "{i}" =~ /([a-zA-Z0-9_. ]+∂∫)*([¬∂∫]+)®1∂∫/ ) ∑ Dev:Null; ∂
Set Program ∂"∂{®1∂}∂""
end
Set Exit 1